home *** CD-ROM | disk | FTP | other *** search
/ My Neighborhood / My Neighborhood.iso / mac / MacFiles / FarmGoos.Dxr / 00008.ls < prev    next >
Encoding:
Text File  |  1997-11-18  |  1.4 KB  |  64 lines
  1. on exitFrame
  2.   global lastOver
  3.   if rollOver(4) then
  4.     if lastOver <> 4 then
  5.       eggNoise(4)
  6.       set lastOver to 4
  7.     end if
  8.   else
  9.     if rollOver(5) then
  10.       if lastOver <> 5 then
  11.         eggNoise(5)
  12.         set lastOver to 5
  13.       end if
  14.     else
  15.       if rollOver(6) then
  16.         if lastOver <> 6 then
  17.           eggNoise(6)
  18.           set lastOver to 6
  19.         end if
  20.       else
  21.         if rollOver(7) then
  22.           if lastOver <> 7 then
  23.             eggNoise(7)
  24.             set lastOver to 7
  25.           end if
  26.         else
  27.           puppetSound(0)
  28.           set lastOver to 0
  29.           repeat with k = 10 to 13
  30.             set the visible of sprite k to 0
  31.           end repeat
  32.         end if
  33.       end if
  34.     end if
  35.   end if
  36.   go(the frame)
  37. end
  38.  
  39. on eggNoise eggNum
  40.   repeat with k = 10 to 13
  41.     set the visible of sprite k to 0
  42.   end repeat
  43.   set the visible of sprite (eggNum + 6) to 1
  44.   if eggNum = 3 then
  45.     set eggNum to 4
  46.   end if
  47.   puppetSound("egg" & eggNum)
  48.   updateStage()
  49. end
  50.  
  51. on mouseUp
  52.   global follow, snap, lastClickOn, homeV, homeH, snapH, snapV
  53.   if the clickOn <> 3 then
  54.     set the visible of sprite (lastClickOn - 6) to 1
  55.     set the visible of sprite lastClickOn to 0
  56.     set the locH of sprite lastClickOn to homeH
  57.     set the locV of sprite lastClickOn to homeV
  58.     puppetSound("swiper.s")
  59.     updateStage()
  60.     wait(20)
  61.   end if
  62.   go(the frame)
  63. end
  64.